﻿Public Class MenuFormTest
    Public Overrides Sub 加载菜单前()
        Me.MenuStrip1.Visible = False

        MyBase.加载菜单前()
        Dim dtMenu As DataTable = GetEmptyMenuTable()

        Dim dr As DataRow = dtMenu.NewRow
        dr("编号") = 1
        dr("标题") = "测试11"
        dr("父编号") = 0
        dtMenu.Rows.Add(dr)

        dr = dtMenu.NewRow
        dr("编号") = 7
        dr("标题") = "测试11-11"
        dr("DLL名称") = "TESTAPP.exe"
        dr("DLL类") = "TESTAPP.MainFormBaseTest"
        dr("父编号") = 1
        dtMenu.Rows.Add(dr)

        dr = dtMenu.NewRow
        dr("编号") = 8
        dr("标题") = "测试菜单"
        dr("DLL名称") = "wys.control.vb.dll"
        dr("DLL类") = "wys.form.MenuBase"
        dr("打开模式") = 1
        dr("父编号") = 1
        dtMenu.Rows.Add(dr)

        dr = dtMenu.NewRow
        dr("编号") = 9
        dr("标题") = "测试列表"
        dr("DLL名称") = "TESTAPP.exe"
        dr("DLL类") = "TESTAPP.ListFormBaseTest"
        dr("打开模式") = 1
        dr("父编号") = 1
        dtMenu.Rows.Add(dr)

        dr = dtMenu.NewRow
        dr("编号") = 2
        dr("标题") = "测试2222"

        dr("打开模式") = 1
        dr("父编号") = 0
        dtMenu.Rows.Add(dr)


        Me.菜单数据 = dtMenu

    End Sub

    

End Class
